home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_98_cursor-icon save scripts.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  8.3 KB  |  168 lines
  1. global gSize, gCast, gHotspotPoint, g4bitValues
  2.  
  3. on saveAsIcon
  4.   SaveFileName = baGetFilename("save", EMPTY, "untitled", "Icon files (*.ico)|*.ico", 2 + 4 + 8 + 32 + 524288, "Save Icon", 0, -1, 0)
  5.   if SaveFileName = EMPTY then
  6.     pass()
  7.   else
  8.     ImageExportXtra = new(xtra("RAVIMAGEEXPORT"))
  9.     if objectp(ImageExportXtra) = 0 then
  10.       alert("Could not save icon!")
  11.     else
  12.       RavRegisterImageExport(ImageExportXtra, "R100-72-57970312")
  13.       if gCast = "4bit" then
  14.         transColor = 15 - getProp(g4bitValues, sprite(36).member.image.getPixel(0, 0, #integer))
  15.         XorColor = 15 - getProp(g4bitValues, sprite(37).member.image.getPixel(0, 0, #integer))
  16.       else
  17.         transColor = 255 - sprite(36).member.image.getPixel(0, 0, #integer)
  18.         XorColor = 255 - sprite(37).member.image.getPixel(0, 0, #integer)
  19.       end if
  20.       if sprite(36).blend = 100 then
  21.         RavSetProp(ImageExportXtra, #ravICOGenerateTranMask, #ravICOColor)
  22.         RavSetProp(ImageExportXtra, #ravICOTranMaskIndex, transColor)
  23.       end if
  24.       if sprite(37).blend = 100 then
  25.         RavSetProp(ImageExportXtra, #ravICOGenerateXorMask, #ravICOColor)
  26.         RavSetProp(ImageExportXtra, #ravICOXorMaskIndex, XorColor)
  27.       end if
  28.       if gCast = "4bit" then
  29.         member(gSize & "x" & gSize & "x4").image.copyPixels(member(gSize & "x" & gSize, gCast).image, member(gSize & "x" & gSize, gCast).rect, member(gSize & "x" & gSize, gCast).rect)
  30.         if RavSaveCastMemberFromName(ImageExportXtra, gSize & "x" & gSize & "x4", SaveFileName, 0, 0, 4, #ravICO) = #false then
  31.           alert("Error: " & RavGetProp(ImageExportXtra, #ravLastErrorCodeString))
  32.         end if
  33.       else
  34.         if RavSaveCastMemberFromIndex(ImageExportXtra, member(gSize & "x" & gSize, gCast).memberNum, member(gSize & "x" & gSize, gCast).castLibNum, SaveFileName, 0, 0, 8, #ravICO) = #false then
  35.           alert("Error: " & RavGetProp(ImageExportXtra, #ravLastErrorCodeString))
  36.         end if
  37.       end if
  38.       member("revert - " & gSize, gCast).image = duplicate(member(gSize & "x" & gSize, gCast).image)
  39.       put SaveFileName into field "file status"
  40.       ImageExportXtra = 0
  41.     end if
  42.   end if
  43. end
  44.  
  45. on saveIcon
  46.   if the text of field "file status" = EMPTY then
  47.     saveAsIcon()
  48.   else
  49.     ImageExportXtra = new(xtra("RAVIMAGEEXPORT"))
  50.     if objectp(ImageExportXtra) = 0 then
  51.       alert("Could not save icon!")
  52.     else
  53.       RavRegisterImageExport(ImageExportXtra, "R100-72-57970312")
  54.       if gCast = "4bit" then
  55.         transColor = 15 - getProp(g4bitValues, sprite(36).member.image.getPixel(0, 0, #integer))
  56.         XorColor = 15 - getProp(g4bitValues, sprite(37).member.image.getPixel(0, 0, #integer))
  57.       else
  58.         transColor = 255 - sprite(36).member.image.getPixel(0, 0, #integer)
  59.         XorColor = 255 - sprite(37).member.image.getPixel(0, 0, #integer)
  60.       end if
  61.       if sprite(36).blend = 100 then
  62.         RavSetProp(ImageExportXtra, #ravICOGenerateTranMask, #ravICOColor)
  63.         RavSetProp(ImageExportXtra, #ravICOTranMaskIndex, transColor)
  64.       end if
  65.       if sprite(37).blend = 100 then
  66.         RavSetProp(ImageExportXtra, #ravICOGenerateXorMask, #ravICOColor)
  67.         RavSetProp(ImageExportXtra, #ravICOXorMaskIndex, XorColor)
  68.       end if
  69.       if gCast = "4bit" then
  70.         member(gSize & "x" & gSize & "x4").image.copyPixels(member(gSize & "x" & gSize, gCast).image, member(gSize & "x" & gSize, gCast).rect, member(gSize & "x" & gSize, gCast).rect)
  71.         if RavSaveCastMemberFromName(ImageExportXtra, gSize & "x" & gSize & "x4", the text of field "file status", 0, 0, 4, #ravICO) = #false then
  72.           alert("Error: " & RavGetProp(ImageExportXtra, #ravLastErrorCodeString))
  73.         end if
  74.       else
  75.         if RavSaveCastMemberFromIndex(ImageExportXtra, member(gSize & "x" & gSize, gCast).memberNum, member(gSize & "x" & gSize, gCast).castLibNum, the text of field "file status", 0, 0, 8, #ravICO) = #false then
  76.           alert("Error: " & RavGetProp(ImageExportXtra, #ravLastErrorCodeString))
  77.         end if
  78.       end if
  79.       member("revert - " & gSize, gCast).image = duplicate(member(gSize & "x" & gSize, gCast).image)
  80.       ImageExportXtra = 0
  81.     end if
  82.   end if
  83. end
  84.  
  85. on saveAsCursor
  86.   SaveFileName = baGetFilename("save", EMPTY, "untitled", "Cursor files (*.cur)|*.cur", 2 + 4 + 8 + 32 + 524288, "Save Cursor", 0, -1, 0)
  87.   if SaveFileName = EMPTY then
  88.     pass()
  89.   else
  90.     ImageExportXtra = new(xtra("RAVIMAGEEXPORT"))
  91.     if objectp(ImageExportXtra) = 0 then
  92.       alert("Could not save cursor!")
  93.     else
  94.       RavRegisterImageExport(ImageExportXtra, "R100-72-57970312")
  95.       if gCast = "4bit" then
  96.         transColor = 15 - getProp(g4bitValues, sprite(36).member.image.getPixel(0, 0, #integer))
  97.         XorColor = 15 - getProp(g4bitValues, sprite(37).member.image.getPixel(0, 0, #integer))
  98.       else
  99.         transColor = 255 - sprite(36).member.image.getPixel(0, 0, #integer)
  100.         XorColor = 255 - sprite(37).member.image.getPixel(0, 0, #integer)
  101.       end if
  102.       if sprite(36).blend = 100 then
  103.         RavSetProp(ImageExportXtra, #ravICOGenerateTranMask, #ravICOColor)
  104.         RavSetProp(ImageExportXtra, #ravICOTranMaskIndex, transColor)
  105.       end if
  106.       if sprite(37).blend = 100 then
  107.         RavSetProp(ImageExportXtra, #ravICOGenerateXorMask, #ravICOColor)
  108.         RavSetProp(ImageExportXtra, #ravICOXorMaskIndex, XorColor)
  109.       end if
  110.       RavSetProp(ImageExportXtra, #ravCURHotspot, gHotspotPoint)
  111.       if gCast = "4bit" then
  112.         member(gSize & "x" & gSize & "x4").image.copyPixels(member(gSize & "x" & gSize, gCast).image, member(gSize & "x" & gSize, gCast).rect, member(gSize & "x" & gSize, gCast).rect)
  113.         if RavSaveCastMemberFromName(ImageExportXtra, gSize & "x" & gSize & "x4", SaveFileName, 0, 0, 4, #ravCUR) = #false then
  114.           alert("Error: " & RavGetProp(ImageExportXtra, #ravLastErrorCodeString))
  115.         end if
  116.       else
  117.         if RavSaveCastMemberFromIndex(ImageExportXtra, member(gSize & "x" & gSize, gCast).memberNum, member(gSize & "x" & gSize, gCast).castLibNum, SaveFileName, 0, 0, 8, #ravCUR) = #false then
  118.           alert("Error: " & RavGetProp(ImageExportXtra, #ravLastErrorCodeString))
  119.         end if
  120.       end if
  121.       member("revert - " & gSize, gCast).image = duplicate(member(gSize & "x" & gSize, gCast).image)
  122.       put SaveFileName into field "file status"
  123.       ImageExportXtra = 0
  124.     end if
  125.   end if
  126. end
  127.  
  128. on saveCursor
  129.   if the text of field "file status" = EMPTY then
  130.     saveAsCursor()
  131.   else
  132.     ImageExportXtra = new(xtra("RAVIMAGEEXPORT"))
  133.     if objectp(ImageExportXtra) = 0 then
  134.       alert("Could not save cursor!")
  135.     else
  136.       RavRegisterImageExport(ImageExportXtra, "R100-72-57970312")
  137.       if gCast = "4bit" then
  138.         transColor = 15 - getProp(g4bitValues, sprite(36).member.image.getPixel(0, 0, #integer))
  139.         XorColor = 15 - getProp(g4bitValues, sprite(37).member.image.getPixel(0, 0, #integer))
  140.       else
  141.         transColor = 255 - sprite(36).member.image.getPixel(0, 0, #integer)
  142.         XorColor = 255 - sprite(37).member.image.getPixel(0, 0, #integer)
  143.       end if
  144.       if sprite(36).blend = 100 then
  145.         RavSetProp(ImageExportXtra, #ravICOGenerateTranMask, #ravICOColor)
  146.         RavSetProp(ImageExportXtra, #ravICOTranMaskIndex, transColor)
  147.       end if
  148.       if sprite(37).blend = 100 then
  149.         RavSetProp(ImageExportXtra, #ravICOGenerateXorMask, #ravICOColor)
  150.         RavSetProp(ImageExportXtra, #ravICOXorMaskIndex, XorColor)
  151.       end if
  152.       RavSetProp(ImageExportXtra, #ravCURHotspot, gHotspotPoint)
  153.       if gCast = "4bit" then
  154.         member(gSize & "x" & gSize & "x4").image.copyPixels(member(gSize & "x" & gSize, gCast).image, member(gSize & "x" & gSize, gCast).rect, member(gSize & "x" & gSize, gCast).rect)
  155.         if RavSaveCastMemberFromName(ImageExportXtra, gSize & "x" & gSize & "x4", the text of field "file status", 0, 0, 4, #ravCUR) = #false then
  156.           alert("Error: " & RavGetProp(ImageExportXtra, #ravLastErrorCodeString))
  157.         end if
  158.       else
  159.         if RavSaveCastMemberFromIndex(ImageExportXtra, member(gSize & "x" & gSize, gCast).memberNum, member(gSize & "x" & gSize, gCast).castLibNum, the text of field "file status", 0, 0, 8, #ravCUR) = #false then
  160.           alert("Error: " & RavGetProp(ImageExportXtra, #ravLastErrorCodeString))
  161.         end if
  162.       end if
  163.       member("revert - " & gSize, gCast).image = duplicate(member(gSize & "x" & gSize, gCast).image)
  164.       ImageExportXtra = 0
  165.     end if
  166.   end if
  167. end
  168.